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1700 FORTRAN SYSTEM 


1 


The 1700 Mass Storage FORTRAN system for the Control Data® 1700 computer provides a convenient 
language for expressing mathematical and scientific problems in a familiar mathematical notation. 

A set of FORTRAN statements to accomplish a particular task is accepted as a source program by the 
FORTRAN compiler; the object program produced by the compiler contains the machine language com- 
mands to solve the problem. Object programs may be run repeatedly with varying sets of data. 

1700 Mass Storage FORTRAN is ASA FORTRAN with the differences described in the following text. 
Many programs written in ASA FORTRAN can be compiled by 1700 FORTRAN with little modification. 
All Basic FORTRAN programs can be compiled correctly by 1700 FORTRAN. 

The 1700 Mass Storage FORTRAN source language includes the following features; 


• Constants and variables of types: 

Integer Real (floating-point) 

Hexadecimal Double precision 

B 5 rte Single 

Signed Byte ANSI 

o Library functions 

• Independently compilable subprograms 

o Generalized subscript expressions 

• Variable format for input/output control 

• Bit and b 3 rte manipulations 

a Run-an 3 Twhere compile time option 

a Mass storage language statements 

a Double-precision floating-point package 

The 1700 Mass Storage FORTRAN Version 3 product is composed of five basic elements: 

a A Variant FORTRAN Compiler — This compiler version has a larger number of overlays; 
the largest overlay is approximately 8K. It requires more mass memory than the B variant 
and is slower in compilation speed. 
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• B Variant FORTRAN Compiler — This compiler has fewer overlays than the A variant; 
the largest overlay is approximately 16K. This variant is faster than the A variant. Both 
compilers process source statements identically and generate identical object code. 

• Re-entrant ENCODE/DECODE Run-Time — This run-time runs in the foreground and has 
the characteristics for multiprogramming. 

• Non-Re-entrant ENCODE/DECODE Run-Time — This run-time runs in the background and 
has identical user interface as the Re-entrant ENCODE/DECODE run-time. This run-time 
is designed for use in debugging programs to obtain the foreground. 

• FORTRAN I/O Run-Time — This run-time runs in the background and has more extensive 
capabilities than the other two run-times. 


PRODUCT CONFIGURATIONS 

Several configurations are possible using the five elements of the product. 

Only one variant of the compiler may be present in a given MSOS system. With the selected compiler, 
Re-entrant ENCODE/DECODE Run-Time may be used (must be core-resident). Either Non-Re-entrant 
ENCODE/DECODE Run-Time or FORTRAN I/O Run-Time may be in the background. In addition, if 
FORTRAN I/O Run-Time is in the background, the non-duplicative functions present in Non-Re-entrant 
ENCODE/DECODE can also be in the background. 

Specific details of the configurations can be found in the MSOS Configuration Manual, CDC Publication 
No. 


PRODUCT HARDWARE REQUIREMENTS 

The MSOS Reference Manual should be consulted for specific hardware options available (CDC Publica- 
tion No. 60361500). 

The minimum system memory requirements for MSOS do not include any of the elements of Mass 
Storage FORTRAN. If the A variant of the compiler is used, the minimum memory requirement is 
24K. The B variant minimum is 32K. If the foreground ENCODE/DECODE run-time is used, the 
additional memory requirement is 4K for single-precision floating-point, or 8K for double-precision 
floating-point. 


OUTPUT 

Output selected by the programmer may include: 
• Relocatable object program 
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• Source program listing plus diagnostics 

• Object program listing (binary and assembly code equivalent) 

• Load-and-go object program for immediate execution 

Diagnostic messages are printed when the compiler detects actual errors and probable errors. 

COMPILER OPTIMIZATIONS 

1700 Mass Storage FORTRAN is a multiple-pass compiler which produces highly optimized code. The 

optimizations are listed below; 

• Common subexpressions, including subscripts, within or between arithmetic expressions 
are identified and computed only once. 

• Subexpressions are computed at the lowest DO loop level. 

• Subscripts being acted upon by DO loop induction variables are computed recursively. 

o hidex registers are optimally assigned, 

• One word relative addressing is used where possible. 

• Storage is allocated to maximize relative addressing. 

• All simple FORTRAN-provided functions are inserted in-line; for example, lABS or AND. 

• A comprehensive analysis of IF statements is made. A transfer from the IF statement to 
the inbel of the next statement is recognized in the generated code. In a logical IF, the 
computations are structured to determine the truth value with the least computation. 

e The analysis and computation of arithmetic expressions are accomplished in an order which 
minimizes both the amount of code generated and the execution time. 

0 Division by a real constant is accomplished through multiplication by the reciprocal of the 
constant. 

0 For integer variables, multiplication and division by a constant which is a power of two is 
accomplished through shifting. When numbers are raised to integer constant powers, in- 
line inultiplication is used wherever it increases efficiency. 

0 The values in the A, Q, and I registers are retained and may be used later. 

0 A flow analysis of the program is made; common subexpressions and index register 
assignments are carried through the flow. 
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CARD FORMATS 


The initial statement card format is: 


Columns 

C(mtent 

1-5 

Blank or statement label 

6 

Blank or 0 

7-72 

Statements 

73-80 

Identification and sequencing 

The continuation card format is: 

Columns 

Content 

1-5 

Blank 

6 

Any character other than 0 or blank 

7-72 

Continuation statement 

73-80 

Identification and sequencing 

Up to five continuation cards are allowed for a statement. 

The comment card format is: 

Columns 

Content 

1 

C — comment designator 

2-72 

Comments 

73-80 

Identification and sequencing 


SOURCE PROGRAMS 

A source program may be a main program or a subprogram. Source programs must be compiled 
separately but may be run together. All specification statements must be placed at the beginning of 
the source program. 

Data values may be entered by DATA declarations. Specific storage areas may be reserved by 
COMMON statements for reference by subprograms and the associated main program, EQUIVALENCE 
allows the programmer to overlay the same storage locations with variables and arrays during program 
execution. 

The mode of a variable, integer or real, may be defined by a type declaration or by the form of the 
variable itself. 
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Arithmetic operations include: addition, 

subtraction. 

multiplication, division, and exponentiation. 

Logical statements may include relational and logical operators. 

o 

Control statements may alter the sequential execution of instructions unconditionally or dependent upon 

the value of an expression. 



o 

Ihput/output operations transmit data between the computer storage and external equipment. Conversion 
and editing specifications permit great diversity in input/output formats. 

o 

ELEMENTS 



o 




o 

CHARACTER SET 



Alphabetic: 

A through Z 

o 

Arabic numerals: 

0 through 9 


Special characters: 



Blank 
Equal sign 



+ 

Plus 



- 

Minus 




Asterisk 

u 


/ 

Slash 



( 

Left parenthesis 

o 


) 

> ■ 

Right parenthesis 
Comma 



• 

Decimal point 

o 


$ 

t 

Currency symbol 
Apostrophe or single quote 



j 

Exclamation point 

o 


ft 

Quotation marks 


# 

Number sign 



% 

Percent sign 

o 


& 

Ampersand 

Colon 



> 

Semicolon 

o 


< 

Less than 


> 

Greater than 



? 

Question mark 

o 


@ 

Commercial at 


[ 

Opening bracket 



\ 

Reverse slant 

o 


] 

Closing bracket 


A 

Circumflex 




Underline 





o 




o 
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CONSTANTS 


Integer, real, hexadecimal, and ANSI constants are variable. Each type has a different mathematical 
significance and a different Internal representation. The type of constant is determined by the form in 
which it is written or by the context. 


INTEGER 

Integer constants are always exact representations of integer values with a range in magnitude of from 
0 to They may assume positive and negative values. 

Integer constants may be represented in decimal form (0-9) or hexadecimal form (0-9, A-F). When 
hexadecimal representation is used, the integer value must be preceded by a dollar sign ($). 


REAL 

128 

Real constants are approximations of real numbers with a range in magnitude of from 0 to 2 . They 

may assume positive and negative values. S^iflcance is one part in eight million. Single- and 
double-precision real capability is provided. 


ANSI 

The FORTRAN characters and their corresponding American National Standards Institute (ANSI) codes 
are listed in Appendix B. 


VARIABLES 

Variables are alphanumeric identifiers which represent specific storage locations. Simple and sub- 
scripted variables are recognized. A variable may be designated as a byte of another variable through 
a BYTE or SIGNED BYTE statement. Such a variable is treated as a signed or unsigned integer when 
used in the body of the program. 

When a variable is not declared by a type statement, it is assumed integer if the initial character is 
I, J, K, L, M, or N, If the variable begins with another alphabetic character, it is assumed real. 
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ARRAY 

An array represents a block of successive storage locations for variables. Each element of the array 
is referenced by the array name plus 1, 2, or 3 subscripts in the following forms (c and d are unsigned 
integer constants and m is a simple integer or byte variable): 

d c * m 

m c * m ± d 

m d 

A reference to an array must contain the number of subscripts specified in the DIMENSION statement. 

Examples of subscripted variables: 

A (I,J) 

C(14) 

BA(J + 3,5) 

Q(I-1,J,2^K) 

RUN-ANYWHERE OPTION 

Selection of this option results in an object program which will run correctly anywhere in allocatable 
core» independent of the location at which it is loaded. 


ASA OPTION 

This option provides ASA compatibility. When this option is selected, two words of storage are allocated 
for integers, only one of which is used. (See SINGLE statement.) 


39519900 A 


1-7/1-8 





c: 

C 


C' 

C’ 

c 

c 



REPLACEMENT STATEMENTS 


2 


o 

o 

o 

o 

o 

o 

o 

o 

o 


REPLACEMENT STATEMENT 

r = e 

The value of the expression, e, is assigned to the variable identifier, r; e is an arithmetic expression. 


ARITHMETIC EXPRESSION 




O 

O 

o 

o 

o 

o 

o 

o 

o 

o 


Any simple or subscripted variable, constant, or function may be an arithmetic expression. These 
entities may be combined by using the following arithmetic operators to form other arithmetic 
expressions; 

addition 
subtraction 

/ division 


exponentiation + 

multiplication 


RELATIONAL EXPRESSION 


A relational expression is true if the arithmetic expressions ej^ and 62 satisfy the relation specified by 
the operator, op; otherwise the relation is false, e^ and e^ must be of the same type. 

Relational operators: 


.EQ. 
.NE. 
.GT. 
.GE. 
.LT. 
. LE. 


equal to 
not equal to 
greater than 
greater than or equal to 
less than 

less than or equal to 
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LOGICAL EXPRESSION 

°P ®2 ®n 

A logical expression is formed with logical operators and logical elements (e.), and is either true or 
false. 

Logical operators: 

logical disjunction 
logical conjunction 
A relational expression 

A logical primary or . NOT. followed by a logical primary where . NOT, is 
logical negation 

A logical primary or a construct of one of the following two forms enclosed in 
parentheses: 

1) logical primary , AND, logical factor 

2) logical primary . OR, logical factor 


.OR. 

.AND. 

Logical primary 
Logical factor 

Logical element 





o 

o 



o 

o 

o 
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SPECIFICATION STATEMENTS 
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DIMENSION 


DIMENSION v^, 


V 

n 


Storage locations are reserved for the array identifiers, v., which may be subscripted with up to three 
unsigned integers. The number of locations reserved is computed from the DIMENSION statement and 
type of array. The arrays will not necessarily be assigned consecutive blocks of storage. 


BYTE 

BYTE (X ,y (c = d )) (x ,y^ (c = d )) 

il l 1 nnnn 

Where; x^ is bits c^ through d. of 

y^ is an integer variable, integer array, or an integer array element 

Cj and d^ are integer constants in the range: 15 i c^^i d^i 0 

A variable may be designated as a byte of another variable or array with this statement. Such a 
variable is treated as an unsigned integer when used in the body of the program. 


SIGNED BYTE 

SIGNED BYTE (x ,y (c = d )),... . (x ,y (c = d )) 
1111 nnn n 

Same as BYTE except bytes are treated as signed integers only. 
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COMMON 


COMMON/name/v, t v_ , . . . , v 
12 n 

Where; name identifies a common block (blank for blank common) 

Vj is a variable name, array name, or subscripted array identifier 

Common locations are assigned to the identifiers for reference by independently compiled programs 
and subprograms. Values in labeled common (name is not blank) may be preset by a BLOCK DATA 
subprogram. Dimensioning information may be supplied. 

One block of labeled common and one block of blank common may be declared for a program. 


TYPE 

type 

Where: type is INTEGER, REAL, or DOUBLE PRECISION 

Vj is a variable name, array name, or function name 

This statement declares the type of the identifier. It overrides or confirms the type implied by the 
first character of the identifier and may supply dimension information. 

EQUIVALENCE 

EQUIVALENCE (a^, b^ ,...), (a^, b^, ...),.. . 

Storage may be shared by two or more entities. The names a^,b., . . . may be variable names or array 
element names. 

No more than one element in an EQUIVALENCE group may appear in a COMMON statement. No element 
may be a formal parameter, 

DATA 

DATA V /d /, V /d /, . . . , V /d / 

1 X iS 6 n n 

Where: v. is a list containing names of variables, arrays, array elements, and implied 

DO loops 

dj is a constant, signed or unsigned, or Hollerith text 
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This statement defines initial values of variables or array elements. A one-to-one correspondence must 
exist between the list items and the constants. A constant may be preceded by k* to indicate that the 
constant is to be specified k times. Apostrophes may be used to enclose a constant. In this case, the 
ANSI code for the symbols in the constant are stored into the corresponding variable. 


EXTERNAL 

EXTERNAL name , name name 

12 n 

This statement specifies the parameter names to be external procedure names, 

RELATIVE 

RELATIVE name, , name , . . . , name 
12 n 

This statement specifies the parameter names to be external procedure names. When the run-anywhere 
option is selected, all references to this procedure will be made relative. Relative externals may not 
be passed as parameters to subprograms, 

SINGLE 

SINGLE v.v V 

1 2 n 

Specifies variables v. as one-word integers. Dimension information may also be specified. This 
statement is used if tKe ASA compile time option is selected. 


o 

o 

o 

o 

o 

o 

o 
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DATA TRANSMISSION STATEMENTS 4 


Data may be transferred within the computer and between the computer and peripheral equipment with 
the following statements. 

FORMAT 

FORMAT (spec , spec spec ) 

X M n 

Where: spec^ is conversion of editing specification listed below 

Editing specifications and BCD conversion specifications may be included in programs. Format 
specifications can be compiled into a program or read into an array at object time. 

Conversion specifications: 


rEw, d 

Floating-point with exponent 

rFw.d 

Floating-point without exponent 

rDw, d 

Double-precision floating-point with exponentiation 

rlw or Iw, d 

Decimal integer 

r$w or Zw 

Hexadecimal conversion 

rAw 

Alphanumeric 

rRw 

Alphanumeric 

Editing specifications: 

wX 

Intra-line spacing 

wH 

ANSI heading and labeling 

/ 

Begin new record 

* or ’ 

ANSI heading and labeling 


39519900 A 


4-1 


FORMATTED READ/WRITE 


READ(i,n)l 

WRITE(l.n)l 

Where: i is the logical unit number 

n is the FORMAT statement specifying how to move data 

1 is the list of variables to be transmitted 

These statements transmit physical records, containing up to 120 characters, between the computer and 
logical unit i according to statement n which may represent one of the following: 

• The label of a FORMAT statement 

• An array name 

• An assign variable or formal parameter which has been assigned the label of a FORMAT 
statement 


UNFORMATTED READ/WRITE 

READ(i)l 

WRITE(i)l 

These statements transmit a binary record to or from logical unit i. One logical record is produced 
from each READ or WRITE statement. A logical record may consist of several physical records. The 
parameters have the same meanings as in formatted READ/WRITE. ENCODE/DECODE and other 
formatting routines aid the programmer in formatting his own data when necessary. 


SETBFR 

A call to SETBFR provides the re-entrant FORTRAN I/O package with information regarding where to 
store the program’s I/O requests and corresponding data. It is used in conjunction with FORTRAN I/O 
requests which are in the foreground. 


CALL READ/WRITE/FREAD/FWRITE 

In addition to the formatted READ, WRITE and the unformatted READ/WRITE, the FORTRAN pro- 
grammer can perform 1700 MSOS 4 monitor calls to perform read or write requests by use of the 
FORTRAN run-time package. These FORTRAN calls have the following forms; 
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CALL READ 
CALL WRITE 
CALL FREAD 
CALL FWRITE 

The CALL READ and CALL WRITE statements permit word addressing of mass memory devices as well 
as sector addressing. (Only sector addressing of mass memory is possible with the FORTRAN READ/ 
WRITE statements.) 

The CALL FREAD and CALL FWRITE statements may be used by a background program to transfer 
binary information to or from mass memory. (The FORTRAN unformatted READ/WRITE statements 
cannot be used by a background program to access mass memory if the standard FORTRAN library rou- 
tines are used. ) 

These calls do not refer to a FORTRAN FORMAT statement, but require that the user do his own for- 
matting. The routines described in the next sections aid the programmer in formatting data. 


ENCODE/DECODE CALLS 

CALL DECODE (v,n, c,l) 

CALL ENCODE (v, n, c, 1) 

Where: v is the starting address 

n is the FORMAT statement specifying how to move data or array name 

c is the number of variables to ENCODE/DECODE 

1 is the list of variables to be transmitted 

These statements transmit information, under FORMAT specifications, from one area of internal stor- 
age to another. 

ADDITIONAL FORMATTING ROUTINES 

HEXASC Converts a number to the ANSI characters corresponding to the digits in the 

hexadecimal form of the number 

HEXDEC Converts a number to the ANSI characters corresponding to the digits in the 

decimal form of the number 

ASCII Converts ANSI characters to a numoer, assuming the ANSI characters represent 

hexadecimal digits 
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DECHEX Converts ANSI characters to a number, assuming the ANSI characters represent 

decimal digits 

A FORM Converts a word containing two ANSI characters to two words each containing a 

character left- justified blank- filled 

RFORM Converts a word containing two ANSI characters to two words each containing a 

character right-justified zero-filled 

FLOATG Converts a floating-point number to ANSI characters including the sign, decimal 

point, and the exponent of the numoer 


FORTRAN/MONITOR RUN-TIME PACKAGE 

The FORTRAN/Monitor run-time package enables the FORTRAN programmer to make certain monitor 
requests, obtain monitor parameters, and execute I/O commands. The calls to READ, WRITE, 

FREAD, and FWRITE, as discussed earlier, are a part of the run-time package. The other FORTRAN 
monitor requests are as follows: 

CALL SCHEDL Schedules a requested program at a requested priority 

CALL TIMER After a specified time interval, schedules a requested program at a requested 
priority 

CALL RELESE Returns memory to the core allocator 

In addition to the monitor calls, the run-time package provides the FORTRAN programmer with access 
to the following routines: 

Obtains the value in the Q register for use by the FORTRAN program 
Transfers control to the dispatcher 
Obtains the value of the system clock 
Performs output via the 1705 Interrupt/Data Channel 
Performs input via the 1705 Interrupt/Data Channel 

Performs a connect to the 1750 DCB terminator and then inputs from a device 
connected to the 1750 

Performs a connect to the 1750 DCB terminator and then inputs from a device 
connected to the 1750 

ENDFILE ENDFILE lu causes the recording of an endfile record on the unit identified by lu. 


LINK 

DISPAT 

ICLOCK 

OUTINS 

INHNS 

ICONCT 

OCONCT 
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RE\VIND REWIND lu positions the unit identified by lu at its load point. 

BACKSPACE BACKSPACE lu causes the unit identified by lu to go back to the beginning of the 
preceding record. 


ACCESSING MASS STORAGE FORTRAN FILES 

Mass Storage FORTRAN files may be created and accessed by a FORTRAN program. These files are 
assigned to the scratch area of the mass storage device and are not retained after execution of a job. 
(They are not to bo confused with File Manager files as described in the 1700 MSOS 4 Reference Manual 
or with permanent files in the program library, ) 

To create a mass storage file, an OPEN statement must be executed. The OPEN statement has the 
following form: 

OPEN k,i,j,u,x 

Where: k is the name of the file 






i is the number of sectorh per record 

j is the maximum number of records in the file 

u is the logical unit to which file is assigned 


o 

o 

o 

o 

o 

o 

o 

o 

o 


X is the starting sector address for the file (optional) 

To access the file, alternate forms of the FORTRAN READ/WRITE statements are used. The alternate 
forms are as follows: 


READ (k(n).f)l 
WRITE (k(n),f)I 


Where: k 


is the name of the mass storage file 


n is the record number 

f is the format specification, which may be the label of a FORMAT statement, an 

array name, or a variable which has been assigned die label of a FORMAT 
statement 

I is the list of variables to be transmitted 
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ASSEM STATEMENTS 


5 



Assembly language Instructions may be inserted in-line in a 1700 FORTRAN program by use of ASSEM 
statements. The inserted instructions are specified by the FORTRAN programmer in the following 
forms; 

• Hexadecimal constants which may represent code to be executed or actual constants 

• References to statement labels within the program 

• References to variables within the program 

• References to externals declared by the program 

o Indirect addressing indicators 

ASSEM statements may be used to generate calling sequences to the operating system and to access the 
core communication region. 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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CONTROL STATEMENTS 
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The following statements may be used to alter the sequential execution of instructions. 


ASSIGN 

ASSIGN k TO i 

Where: k is the statement label 

1 is the integer variable name (assign variable) 

A label assignment statement stores the location of a statement label into a variable. 


GO TO 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


UNCONDITIONAL 

GO TOn 

Control transfers to the statement identified by n. 


ASSIGNED 

GO TO i or GO TO i, (k.,k^,...,k ) 

1 2 m 

Where: i is the integer variable name (assign variable) 

k^ is the optional statement labels which may be included for the programmer's 

convenience; they are not used by the compiler. 

Before an assigned GO TO statement is executed* the current value of i must be previously assigned by 
an ASSIGN statement. Control transfers to that assigned location. The i may be assigned in either the 
program unit of the GO TO or in another program unit where i was passed as an actual parameter or 
was in COMMON. 
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COMPUTED 


GOTO(k^.k2,...,kj^),i 

Where is the statement label 

i is the integer variable reference 

Control transfers to statement kj. 


DO 

DO statements provide repetitive operation and incrementing. 

DO n i = m^, m£ or DO n i = mj^, m 2 , mg 

Where; n is the statement number at the end of a sequence of instructions which begins 

with the DO statement 

i is a simple integer variable ' 

m^ is an integer constant or simple integer variable 

The initial value of 1 is mj^. The value of i is incremented by mg each time. The sequence is repeated 
until i surpasses the value of mg. If mg is omitted, it is assumed to have the value 1. A DO loop may 
include other DO loops. 


IF 

IF statements transfer control conditionally depending on the value of an arithmetic or logical 
expression. 

IF (e) k^,k 2 *kg 

Where: e is an arithmetic expression 

k^ is a statement label 

Control transfers to k^ if the value of e is negative, to kg if the value is zero, and to kg if the value is 
positive. 

IF (1) s 

Where: 1 is a logical expression 

s is any executable statement except a DO or another logical IF statement 
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o 

o 

o 

t 

o 

o 

o 

o 

o 

o 




o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


If 1 is false, s is executed as though it were a CONTINUE statement. If 1 is true, statement s is 
executed. 


CONTINUE 

CONTINUE 

This is a no-operation instruction which may be given a statement number for reference. It is frequent- 
ly used to terminate a DO loop. 


PAUSE 

PAUSE 
PAUSE V 

Where; v is an octal number with a maximum value of 77777 

The PAUSE statement halts a program temporarily. The word PAUSE and the value of v, if present, 
are printed on the output comment device. A carriage return entered by the operator resumes execu- 
tion with the statement immediately following the PAUSE statement. 


STOP 

STOP 

STOPv 

Where; v is an octal number with a maximum value of 77777 

The STOP statement terminates the execution of a program. The word STOP and the value of v, if 
present, are printed on the output comment device. 
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c 


c 


O' 

c 

c 



PROGRAM AND SUBPROGRAM STATEMENTS 


7 




SUBROUTINE 

SUBROUTINE name (Pj^, p 2 » • . • t Pj^) 

Where: name is the alphanumeric identifier 

p^ is a formal parameter (optional) 

The first statement in a subroutine defines it. A subroutine may return resulting values through formal 
parameters. 

CALL 

CALL name (Cj^, C 2 , • • • * 

Where: name is the alphanumeric identifier 

C| is an actual parameter 

Control transfers from a program or subprogram to subroutine name with actual parameters, c., re- 
placing formal parameters, Pj, in the subroutine parameter list. The actual pa^Jimeters may be vari- 
ables, array names, array element names, constants, arithmetic expressions, or external subprogram 
names. 

FUNCTIONS 

EXTERNAL 

FUNCTION name (Pj^, P 2 » • • • » P^) 

Where: name is the alphanumeric identifier 

Pj is a formal parameter (optional) 

This must be the first statement in a function subprogram. A function returns a single value as a 
result. 
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STATEMENT 


name (Pi.pg, . . . ,p^)=e 



Where: name is the alphanumeric identifier 

p^ is a formal parameter 

e is an arithmetic expression involving p. 

This Statement defines the value of name, which is inserted in the code wherever name is used as an 
operand in an expression. The expression e may coitain references to library functions, other state- 
ment functions , or function subprograms . 

The statement function name may not appear in a DIMENSION, EQUIVALENCE, or COMMON 
statement. 




REFERENCE 

name (Ci,C 2 , . . . ,Cg) 

i 

Where: name is an alphanumeric identifier 

Cj is an actual parameter 

When the statement function appears as an operand in an expression, control transfers to the named 
function. Control returns to the statement containing the function reference and the value returned is 
associated wltli the function identifier. A function reference may be used anywhere that a variable 
identifier may be used. 

Actual parameters may be variables, array names, array element names , constants, arithmetic 
expressions, or external subprogram names. 





BLOCK DATA 

BLOCK DATA 

Block data subprograms are used to enter initial values into elements of labeled common blocks. This 
special subprogram contains only specification statements. BLOCK DATA must be the first statement in 
this subprogram. 

If an entity of a particular common block is being given an initial value in such a subprogram, a complete 
set of specification statements for the entire block must be Included, even though some of the elements 
of the block do not appear In DATA statements. Initial values may be entered into more than one block 
in a single subprogram. 
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RETURN 



O 

O 

o 

o 

o 


RETURN 

This statement signals the aid of logic flow within a subroutine or function and returns control to the 
calling program. More than one RETURN statement may appear within a single subroutine or function 
subprogram. If RETURN is omitted, the END statement serves as a RETURN statement. 


o 

o 

o 

o 


END 

END 

This statement marks the physical end of a program, subroutine, or function. 


o 

o 

o 

o 

o 

o 

o 

'O 

o 

o 
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A 

o 


c 

c 



C’ 

c 

c 



PREDEFINED FUNCTIONS 
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o 
o 
o 
o 

> 

o 

^ BASIC EXTERNAL FUNCTIONS 

o The following functions may be referenced in any program or subprogram. 


o 

' Fimction 

Definition 

Number of 
Arguments 

Symbolic 

Name 

Type of 

Argument Function 

o 

Exponential 

1 

a 

e 

1 

EXP 

DEXP 

Real 

Double 

Real 

Double 

o 

Natural 

logarithm 

log^(a) 

1 

ALOG 

DLOG 

Real 

Double 

Real 

Double 


Trigonometric 

sine 

sin (a) 

i ^ 

SIN 

DSIN 

Real 

Double 

Real 

Double 

w 

Trigonometric 

cosine 

cos (a) 

1 

COS 

DCOS 

Real 

Double 

Real 

Double 

o 

Hyperbolic 

tangent 

tanh (a) 

1 

TANH 

Real 

Real 

o 

Square root 

1/2 

(a) 

1 

SQRT 

DSQRT 

Real 

Double 

Real 

Double 

o 

Arctangent 

arctan (a) 

1 

ATAN 

DATAN 

Real 

Double 

Real 

Double 

o 

o 

End of file 
check on unit a 

Check previous 
read on unit a 
for end-of-file, 
2 is returned if 
none. 1 is re- 
turned if EOF. 

1 

EOF 

Integer 

Integer 


o 

o 

o 

o 

o 
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Function 

Floating point 
fault 


Definition 

If a l6 0, over- 
flow Is tested. 

If a Is 1, divide 
fault is tested. 

If a is 2 , under- 
flow is tested. 

A 2 is returned if 
the condition has 
not occurred, a 1 
otherwise. 


Number of 
Arguments 


Symbolic 

Name 

IFALT 


Type of 


Argument 

Integer 


Function 


Integer 


Parity error 
check on unit 


Check previous 
read or write on 
unit a for parity 
error. A 2 is 
returned if no 
parity error 
occurred. A 1 
is returned if 
parity error did 
occur. 


lOCK 


Integer 


Integer 


INTRINSIC FUNCTIONS 

When the following functions are referenced, in-line code is generated. They may not be passed as a 
Butqprogram parameter. 


Number of 


Symbolic 


Type of 


Function 

Definition 

Arguments 

Name 

Argument 

Function 

Absolute 

|a| 

1 

ABS 

Real 

Real 

value 



lABS 

Integer 

Integer 




DABS 

Double 

Double 

Float 

Conversion 

1 

FLOAT 

Integer 

Real 


from integer 


DFLT 

Integer 

Double 


to real 





Fix 

Conversion 

1 

IFIX 

Real 

Integer 


from real 


DFDC 

Double 

Double 


to integer 





Transfer 

Sign of &2 

2 

SIGN 

Real 

Real 

of sign 

times ] 1 


ISIGN 

Integer 

Integer 




DSIGN 

Double 

Double 
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o 

Q 

O 


o 

Function 

Definition 

Number of 
Arguments 

Symbolic 

Name 

Type of 

Argument Function 

o 

Inclusive 

OR 

Inclusive OR 
of I and J 

2 

OR(I,J) 

Integer 

Integer 

o 

Exclusive 

OR 

Exclusive OR 
of I and J 

2 

EOR(I,J) 

Integer 

Integer 

o 

Logical 

product 

Logical prod- 
uct of I and J 

2 

AND(I.J) 

Integer 

Integer 

o 

Complement 

Complement 
(NOT) of I 

1 

NOT(I) 

Integer 

Integer 

o 

o 

Obtain most sig- 
nificant part of 
double -precis ion 
argument 


1 

SNGL 

Double 

Real 


Express single 


1 

DBLE 

Real 

Double 


precisioa argu- 
ment in double 
precision form 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


39519900 A 


8-3/S-4 




c 



o 

o 

o 

o 

9> 

o 

o 

o 

o 

o 

o 



o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


STATEMENTS 


GOTO 


,n ),e 
m 


ASSEM a, ,a_, . . . ,a 
1 ^ n 

ASSIGN TO ^ 

BACKSPACE I 
BLOCK DATA 

BYTE (X ,y (c =d ,y (c = d )) 

iiii nnn n 

CALL name (c. ,c., ... ,c ) 

1 ^ n 

COMMON/name/v, , v_ , . . . , v 
12 n 

CONTINUE 

DATA v/d^/.v^/dg/ 

DIMENSION V, v 

12 n 

DO n i = m^, 

DO n I = mj^.m^.-m^ 

END 

ENDFILE lu 

EQUIVALENCE (a^.b^,...), (a^.b^, 

EXTERNAL name. .name. , . . . ,name 
12 n 

FORMAT (speCj^ k(spec^, . . .),spec^, . . .) 

FUNCTION name (p, ,p„ , . . . ,p ) 

12 n 

GO TO n 
GO TO i 

GO TOi, (n ,n ,...,n ) 

12 m 

39519900 A 


IF (e) n^.n^.ng 
IF(l)s 
OPEN 
PAUSE 
PAUSE n 
r = e 

READ (1) 1 
READ (l,n) 1 

RELATIVE name, ,name_, . . . ,name 
12 n 

RETURN 
REWIND i 

SIGNED BYTE (x.=y,(c = d )) (x^ = y (c = d )) 

11x1 nnnn 

SINGLE 
STOP 
STOP n 

SUBROUTINE name (p ,p ,. . . ,p ) 

JL A n 

typev^.V2....,v^ 

WRITE (1) 1 
WRITE (l,n) I 




o 

o 

O ansi codes for the fortran character set b 

o 


Bit Configuration 

Symbol 

Bit Configuration 

Symbol 


0100000 

SP 

0111011 

» 

^ 0100001 

1 

0111100 

< 


0100010 

ft 

0111101 

= 

0 

0100011 

# 

0111110 

> 

0100100 

$ 

0111111 

? 

O 

0100101 

% 

1000000 

@ 

0100110 

& 

1000001 

A 


0100111 

1 

1000010 

B 


0101000 

( 

1000011 

C 


0101001 

) 

1000100 

D 

0101010 

♦ 

1000101 

E 

O 

0101011 

+ 

1000110 

F 

0101100 

• 

1000111 

G 

o 

0101101 

- 

1001000 

H 

0101110 

. 

1001001 

I 

o 

0101111 

/ 

1001010 

J 

0110000 

0 

1001011 

K 

o 

0110001 

1 

1001100 

L 

0110010 

2 

1001101 

M 

o 

0110011 

3 

1001110 

N 

0110100 

4 

1001111 

o 

o 

0110101 

5 

1010000 

P 

0110110 

6 

1010001 

Q 

o 

0110111 

7 

1010010 

R 


0111000 

8 

1010011 

S 

o 

0111001 

9 

1010100 

T 

0111010 

; 

1010101 

U 


o 

39519900 A 
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1010110 

V 

1011011 

[ 

«r 

1010111 

w 

1011100 

\ 

C' 

1011000 

X ■ ■ 

1011101 

1 


1011001 

Y 

1011110 

A 

c 

1011010 

z 

1011111 





c 



X ■■■ 

u 

O 

O 

O 

O 


COMPILATION OUTPUT AND OPTIONS C 


o 

o 

o 

o 

o 





The 1700 Mass Storage FORTRAN compiler allows a variety of compilation options for user needs. Any 
combination may be used. The following defines the available options. 

L — Source program listing with syntax checking of source code. 

A — Object code listing with assembly language equivalences 

M — Condensed object code listing indicating the first object code statement generated 
for each source statement. 


R — Run-anywhere option allows for generation of code using relative addressing for 
execution in allocatable core. 

K — ANSI FORTRAN compatibility; integers occupy two words. 

X ~ Relocatable object code placed on mass memory load-and-go file for immediate 

execution. 

’ j 

P — Relocatable object code output to output media for retention. 


All compilation processes check for syntax errors and comprehensive diagnostics are printed. 


o 

o 


The following examples illustrate the compiler operation and listing. 
L Option 

Note that full compilation is not done, only a statement syntax check. 


o 

o 

o 

o 

o 


1 


? 

3 

4 

5 

« 

7 

8 
9 

10 

11 


program ftnopt 
c 

C FitAMPLE FOR FORTRAN COMPILER OPTIONS 
C 

dimension AKSltKS) 

DO I Il«l*5 

I ni)«ii«3/*(in 
1 continue 
call SUBEXM^Afl) 

J»KT6»C 

IF(FUNFXM(A»9)) lOtZOflO 

10 60 To 20 
20 continue 
end 


O 

o 


C-1 
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Options LA 





1 program ftnopt 

C 

■ C example for F0RTRAN COMPILER OPTIONS 

DIMENSION A<5)#I(5) 

00 I II»1*5 

1 continue 

call SUBEXMUfI) 

IF(FunEXM ( 4,9J) 10*20tl0 
in GO TO 20 
20 CONTINUE 
11 END 





0000 

0000 



NAM 

FTNOPT 

0000 

1819 


Ftnopt 

JMP* 

•00001 

0001 

OOOA 


A' . ■ 

BSS 

10 

OOOB 

0005 


1 

BSS 

. 5 

0010 

0001 


II 

BSS 

1 

0011 

0003 


0003? 

CON 

3 

0012 

0001 


J 

BSS 

1 

0013 

0001 


K 

BSS 

1 

0014 

0006 


0006? 

CON 

6 

0015 

0002 


c 

BSS 

2 

OOIT 

41CE 


^ICE. 

CON 

16646 

0018 

6666 



CON 

26214 

0019 

OAol 


tOOOOl 

ENA 

i 

OOIA 

60F5 



STA* 

II 

OOIB 

0A02 


•00004 

ENA 

2 

OOlC 

20F3 



MUI* 

II 

ooin 

682C 



STA* 

• 00005 

OOIF 

C8F1 



lda* 

II 

OOIF 

28F1 



MUI* 

0003S 

0020 

68?A 



STA# 

• 00006 

0021 

54q0 



PTJ* 

FLOAT 

0022 

7FFF 





0023 

004A 

P 


ADC 

• 00006 

0024 

5400 



RTJ* 

flot 

0025 

7FFF 





0026 

FAAO 



CON 

-1471 

0027 

0049 

P 


ADC 

• oooos 

0028 

7FFE 

P 


AOC 

A 

0029 

5400 



RTJ* 

Q80FIX 

002A 

7FFF 





002P 

F8E4 



LOQA 

II 

002C 

6ADD 



STA* 

I 



• 1 *0 



r 


C-2 


V...' 
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5 

0020 

08F? 


1 

RAC* 

II 

(J 


002E 

OA05 



ENA 

5 

♦ 



002F 

9RF0 



SUB* 

II 




0030 

0131 



SAH 

1 

r) 


0031 

18E9 



JMP* 

• 00004 


6 

0032 

5400 



RTJ* 

supexm 




0033 

tfff 








0034 

oool 

P 


AOC 

A 



0035 

0008 

P 


AOC 

I 



T 

0036 

5CFB 



PTj* 

(FLOAT ') 




0037 

0014 

P 


AOC 

0006S 



0C3R 

8CEC 



RTJ* 

(FLOT ) 



0039 

9040 



CON 

-25279 




003A 

0015 

P 


ADC 

C 




003P 

0048 

P 


ADC 

•00007 

f 'I 


003C 

5CE5 



RTJ* 

(FLOAT ) 




0030 

0013 

P 


AOC 

K 




003E 

5CE6 



RTJ* 

(FLOT ) 

V 



003F 

6400 



CON 

-7167 

1 ; 


0040 

0048 

P 


ADC 

• 00007 




0041 

5CE8 



RTJ* 

(08QFIX) 




0042 

68CF 



STA* 

J 



8 

0043 

5400 



RTJ* 

FUNEXM 




0044 

Tfff 








0045 

0017 

P 


AOC 

41CE. 



0046 

C0C5 



CON 

-16106 

1 



0047 

0105 



SA2 

5 



9 

0048 

1805 


10 

jmp* 

20 

I 



0049 

0001 


•00005 

flSS 

1 


I 


004A 

0001 


•00006 

BSS 

1 




004P 

0002 


.00007 

BSS 

2 



11 

0040 

5400 


20 

RTJ* 

OaSTF 




004E 

7FFF 





O 


11 

0000 

0000 



END 

0 


program length SOOAF ( 7^) 



OPTS ■ AL 



externals 

080FIX FLOT QflSTP FLOAT SUBEXF FUNEXM 


O 

o 


o 

o 

o 
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Options LM 

Note condensed object code listing. This form is useful when the list device is a Teletype. 


1 


3 

a 

5 

6 
T 

e 

9 

in 

11 


program ftncpt 

'C ' 

C l-XAMPLE POP FORTRAN COMPILER OPTIONS 
C 

DIMENSION A<5)*I<5) 

DO I It«l *5 
I(II)«II*3/A(II) 

1 continue 

CALL SUBEXM<Afl| 

J«K*6eC 

IF(FUNEXP(4«qn I0*20tl0 
10 GO TO 20 

20 continue 

END 


3 

0019 

OAOl 

•00001 

ENA 

1 

4 

OOIR 

0A02 

•00004 

ENA 

2 

5 

0020 

08E2 

1 

RAO* 

II 

6 

0032 

S400 


RTJ* 

SUREXM 

T 

0034 

bCFB 


RTJ* 

< float ') 

8 

004'3 

5400 


RTJ* 

FUNEXM 

9 

C04R 

1605 

10 

JMP* 

20 

n 

0040 

5400 

20 

RTJ* 

08RTP 

n 

0000 

0000 


END 

0 


program length «004F ( 79) 

OPTS » LM 

externals 

QOOriX PLOT OflSTP float SUBEXM FUNEXM 



C“4 


S9510900A 



u 

O 

O 


O 

o 

o 

o 

o 

o 

o 


Options LAR 

Note that no program relocatable addresses are generated; hence, the program is able to run in 


allocatable core. 



1 

c 


program ftnopt 


c 

FXAMPLE FOR fortran COMPILER OPTIONS 


c 



2 



DIMENSION A<5»tl(5) 

3 



no 1 II*1«5 

4 



I (Il)all«3/A(ll) 

5 


1 

continue 

6 



call SUREXM<A«U 

7 



j«K*e«c 

fl 



IF(FuNFXM(4,9n I0*20fl0 

9 


10 

GO To 20 

10 


20 

continue 

n 



END 



o 

o 

o 

o 

o 


0000 

0000 

•00001 

NAM 

FTNOPT 

0000 

1819 

ftnopt 

JMP* 

• 00002 

0001 

OOOA 

A 

BSS 

10 

0009 

0005 

I 

BSS 

5 

0010 

0001 

II 

BSS 

1 

0011 

0003 

0003* 

CON 

3 

0012 

0001 

J 

BSS 

1 

non 

0001 

K 

BSS 

1 

0014 

0006 

0006S 

CON 

6 

3015 

0002 

C 

BSS 

2 

: 0 1 7 

AlCE 

aice. 

CON 

16846 

COlO 

6666 


CON 

26214 

0019 

5802 

•00002 

RTJ4 

• 00005 

OOIA 

FFE5 


ADC 

•00001 

noiR 

0001 

•00005 

BSS 

1 

OOlC 

C8FE 


LOA# 

•00005 

0010 

88FC 


ADO* 

• 00005 

COIE 

6AFC 


ST A* 

• 00005 

OOlF 

OAol 


ENA 

1 

0020 

68EF 


STA* 

II 


o 

o 

o 
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A 

0021 

OAo? 

•00006 

ENA 

2 


0022 

?8Fn 


MUI« 

11 


0023 

ft92C 


STA4 

•00007 


0024 

C8EB 


LDA« 

II 


0025 

28E8 


MUI* 

0003S 


002ft 

ft82A 


STA# 

•00008 


0027 

5400 


RTJ* 

float 


0028 

7FFF 





002P 

8027 


AOC 

•00008 


002A 

5400 


RTJ* 

flot 


002R 

7FFF 





002C 

5FA4 


CON 

24484 


0020 

0022 


AOC 

•00007 


002E 

7Fno 


AOC 

A 


002F 

5400 


RTJ*. 

oeoFix 


0030 

7FFF 





0031 

E80E 


LOG# 

II 


003? 

ftA07 


STA# 

I 

5 

0063 

D80C 

1 

RAO* 

II 


0034 

OA05 


ENA 

5 


0035 

P80A 


SUB* 

II 


003ft 

0131 


SAP 

1 


0037 

18EP 


JMP* 

• 00006 

6 

0038 

5400 


RTJ* 

SUPEXh 


003P 

7FFF 





003A 

FFC6 


AOC 

A 


003B 

FFCF 


AOC 

I 

7 

003C 

5CE8 


RTJ* 

(FLOAT 1 


0030 

FFOft 


AOC 

0006$ 


003E 

5CEC 


PTJ* 

(FLOT ) 


003F 

59H4 


CON 

22996 


0040 

7F04 


AOC 

C 


0041 

«010 


AOC 

• 00009 


004? 

5CE5 


RTJ* 

(FLOAT ) 


0043 

FFcF 


AOC ‘ 

K 


0044 

5CEft 


RTJ* 

(FLOT ) 


0045 

5E40 


CON 

24128 


004ft 

0008 


AOC 

• 00009 


0047 

5CF8 


RTJ* 

(08QFIX) 


0048 

68C9 


STA# 


8 

004'9 

5400 


RTJ* 

FUNEXM 


004A 

7FFF 





004R 

FFC8 


AOC 

41CE^ 


004C 

C0C5 


CON 

-16186 


0040 

0105 


SAZ 

5 

P 

004F 

1805 

10 

JMP# 

20 


004F 

0001 

•00007 

RSS 

1 


0050 

0001 

•00008 

BSS 

1 


0051 

0002 

•00009 

8SS 

2 

n 

0053 

5400 

20 

RTJ* 

08STP 


0054 

7FFF 




u 

0000 

oooo 


ENO 

0 


PROGRAM LENGTH $00*55 < 0C) 

OPTS ■ RAL 

externals 

08QFIX FLOT OGSTP FLOAT SUREXH FUNEXM 


C-6 
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o 


o 

o 

o 

n 


Options lAK 

This form allocates two words of memory for each Integer. The actual executable code only uses 
of the two words . 


? 

3 

4 

5 

6 
7 

a 

9 

10 

u 


program ftnopt 

example for fortran compiler options 


dimension A<5I *I (5) 

DO I IlolfS 
I (ll)BlI«3/A(in 
continue 

call SUBEXMfAtl) 

J«K*6«C 

IF(FunEXM ( 4.9)) I0f20#10 
GO TO ?0 


10 

20 


continue 

END 



0000 

0000 


NAM 

FTNOPT 


0000 

1821 

Ftnopt 

JMP4 

•00001 

1 0001 

OOOA 

A 

BSS 

10 


OOOR 

OOOA 

I 

ess 

10 


1 0015 

0002 

11 

ess 
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